home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Exec / ExecOther.asm < prev    next >
Assembly Source File  |  1990-11-10  |  727b  |  48 lines
  1. *
  2. *    ExecOther.asm of PCQ Pascal
  3. *    Copyright (c) 1990 Patrick Quaid
  4. *
  5. *    These are the glue routines for the procedures and functions
  6. *    defined in Include/Exec/ExecOther.i
  7. *
  8.  
  9.     SECTION    PCQ_Runtime,CODE
  10.  
  11.     XREF    _AbsExecBase
  12.  
  13.     XREF    _LVODebug
  14.     XDEF    _Debug
  15. _Debug
  16.     move.l    4(sp),d0
  17.     move.l    _AbsExecBase,a6
  18.     jmp    _LVODebug(a6)
  19.  
  20.     XREF    _LVOGetCC
  21.     XDEF    _GetCC
  22. _GetCC
  23.     move.l    _AbsExecBase,a6
  24.     jmp    _LVOGetCC(a6)
  25.  
  26.     XREF    _LVORawDoFmt
  27.     XDEF    _RawDoFmt
  28. _RawDoFmt
  29.     movem.l    a2/a3,-(sp)
  30.     move.l    12(sp),a3
  31.     move.l    16(sp),a2
  32.     move.l    20(sp),a1
  33.     move.l    24(sp),a0
  34.     move.l    _AbsExecBase,a6
  35.     jsr    _LVORawDoFmt(a6)
  36.     movem.l    (sp)+,a2/a3
  37.     rts
  38.  
  39.     XREF    _LVOSetSR
  40.     XDEF    _SetSR
  41. _SetSR
  42.     move.l    4(sp),d1
  43.     move.l    8(sp),d0
  44.     move.l    _AbsExecBase,a6
  45.     jmp    _LVOSetSR(a6)
  46.  
  47.     END
  48.